home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / 3d / rayshade40_enh2.lha / Examples / cork_screw.ray < prev    next >
Text File  |  1992-10-04  |  3KB  |  171 lines
  1. /*#include "/usr/people/c/lcoffin/ray/rayshade/include/defs.rh"*/
  2.  
  3.  
  4. screen 320 400
  5.  
  6. eyep -3 -33 6
  7. lookp .2 .2 3
  8. background 0 0 1
  9. fov 45 34
  10.  
  11. sample 3
  12. maxdepth 3
  13.  
  14. light 1 1 1  point 500 -500 500
  15.  
  16. surface this_red
  17.     ambient .5 0 0
  18.     diffuse 1 0 0
  19.  
  20. surface red
  21.     ambient .1 0 0
  22.     diffuse 1 0 0
  23.  
  24. surface black
  25.     ambient 0 0 0
  26.     diffuse 0 0 0
  27.  
  28. urface brown diffuse 0.3147 0.0794 0.0118 ambient 0.1049 0.0265 0.0039
  29.  
  30. surface neon_blue
  31.         ambient 0.0329 0.4621 0.5125
  32.         diffuse .5 .5 .5
  33.         specular .3 .3 .3
  34.         specpow 67
  35.  
  36. surface hot_pink
  37.     ambient 1.000 0.461 0.461
  38.         diffuse .4 .4 .4
  39.         specular .3 .3 .3
  40.         specpow 85
  41.  
  42. surface hot_green
  43.     ambient 0.442 1.000 0.309
  44.     diffuse .4 .4 .4
  45.     specular .3 .3 .3
  46.     specpow 70
  47.  
  48. surface handle
  49.     ambient 0 0 0
  50.     diffuse .1 .1 .1
  51.     specular .5 .5 .5
  52.     specpow 50
  53.  
  54.  
  55. surface st_steel
  56.     ambient .1 .1 .1
  57.     diffuse .3 .3 .3
  58.     specular 1 1 1
  59.     specpow 300
  60.     reflect 1
  61.  
  62. surface tan
  63.     ambient 0.305 0.255 0.12
  64.     diffuse 0.709 0.509 0.236
  65.     
  66. plane red 0 0 -7.1  0 0 1
  67.         texture checker black
  68.                 scale 10 10 10
  69.  
  70.  
  71. #define zstep 2.7
  72. #define rad 2
  73. #define contrl rad*1.31
  74. #define wirerad .7
  75.  
  76. name cscrew list
  77.     sweptsph handle bezier -10 0 0  -7 0 0  7 0 0  10 0 0
  78.         1 6 -6 0
  79.         scale 1.8 1.8 1.8
  80.         translate 0 0 (11*zstep)
  81.  
  82.     cylinder st_steel wirerad  0 0 (11*zstep)  0 0 (8*zstep)
  83.  
  84.     sweptsph st_steel
  85.         xbezier 0 0 (-rad) (-rad)
  86.         ybezier 0 0 (-contrl) 0
  87.         zcoeffs (8*zstep) (-zstep) 0 0
  88.         wirerad 0 0 0
  89.  
  90.     list
  91.         sweptsph st_steel
  92.             xbezier rad rad -rad -rad
  93.             ybezier 0 (contrl) (contrl) 0
  94.             zcoeffs 0 zstep 0 0
  95.             wirerad 0 0 0
  96.  
  97.         sweptsph st_steel
  98.             xbezier -rad -rad rad rad
  99.             ybezier 0 (-contrl) (-contrl) 0
  100.             zcoeffs zstep zstep 0 0
  101.             wirerad 0 0 0
  102.  
  103.         sweptsph st_steel
  104.             xbezier rad rad -rad -rad
  105.             ybezier 0 (contrl) (contrl) 0
  106.             zcoeffs (2*zstep) zstep 0 0
  107.             wirerad 0 0 0
  108.  
  109.         sweptsph st_steel
  110.             xbezier -rad -rad rad rad
  111.             ybezier 0 (-contrl) (-contrl) 0
  112.             zcoeffs (3*zstep) zstep 0 0
  113.             wirerad 0 0 0
  114.  
  115.         sweptsph st_steel
  116.             xbezier rad rad -rad -rad
  117.             ybezier 0 (contrl) (contrl) 0
  118.             zcoeffs (4*zstep) zstep 0 0
  119.             wirerad 0 0 0
  120.  
  121.         sweptsph st_steel
  122.             xbezier -rad -rad rad rad
  123.             ybezier 0 (-contrl) (-contrl) 0
  124.             zcoeffs (5*zstep) zstep 0 0
  125.             wirerad 0 0 0
  126.  
  127.         sweptsph st_steel
  128.             xbezier rad rad -rad -rad
  129.             ybezier 0 (contrl) (contrl) 0
  130.             zcoeffs (6*zstep) zstep 0 0
  131.             wirerad 0 0 0
  132.  
  133.     end
  134.  
  135.  
  136.         sweptsph st_steel
  137.             xbezier rad rad (contrl/2) 0
  138.             ybezier 0 (-contrl/2) -rad -rad
  139.             zcoeffs 0 (-0.5*zstep) 0 0
  140.             wirerad -wirerad 0 0
  141.  
  142. end
  143.     scale .3 .3 .3
  144.  
  145.  
  146. object cscrew rotate .4 .4 1  45
  147.  
  148.  
  149. name cork list
  150.     cone tan
  151.         2.3 0 0 0
  152.         1.8 0 0 -5
  153.     disc tan 2.3  0 0 0  0 0 1
  154.     disc tan 1.8  0 0 -5  0 0 -1
  155. end
  156.     texture bump 1
  157.         scale .2 .2 .2
  158.     texture blotch -.5 brown
  159.         scale .2 .2 .2
  160.     texture blotch -.5 brown
  161.         scale .2 .2 .2
  162.     texture blotch -.2 black
  163.         scale .2 .2 .2
  164.     texture blotch -.2 black
  165.         scale .2 .2 .2
  166.  
  167. object cork
  168.     translate 0 0 -2
  169.     rotate .4 .4 1 45
  170.  
  171.